home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Total Distortion Big Demo / beESPman.Dxr / 00178.ls < prev    next >
Encoding:
Text File  |  1995-06-05  |  1.1 KB  |  76 lines
  1. on initesp
  2.   global espman
  3.   set espman to birth(script "ESPman.script")
  4. end
  5.  
  6. on selecto n
  7.   global espman
  8.   selecto(espman, n)
  9. end
  10.  
  11. on JumpPage n
  12.   global NowBPage
  13.   puppetSound("LoYeah01.AIF")
  14.   set NowBPage to n
  15.   go(string(n))
  16. end
  17.  
  18. on goNowPage
  19.   global NowBPage
  20.   puppetSound("JSpcBtn13.AIF")
  21.   go(string(NowBPage))
  22. end
  23.  
  24. on PutAway
  25.   puppetSound(0)
  26.   go("exit")
  27. end
  28.  
  29. on BookHelp
  30.   puppetSound("Dogonnit.AIF")
  31.   go("help")
  32. end
  33.  
  34. on initbook n
  35.   global NowBPage, BPageMax
  36.   set the immediate of sprite n to 1
  37.   set NowBPage to 1
  38.   set BPageMax to n
  39. end
  40.  
  41. on PageUp
  42.   global NowBPage, BPageMax
  43.   if NowBPage = BPageMax then
  44.     exit
  45.   else
  46.     set NowBPage to NowBPage + 1
  47.   end if
  48.   puppetSound("BookPage.1")
  49.   go(string(NowBPage))
  50. end
  51.  
  52. on LastPage
  53.   global NowBPage, BPageMax
  54.   puppetSound("Kick.1")
  55.   go(string(BPageMax))
  56.   set NowBPage to BPageMax
  57. end
  58.  
  59. on FirstPage
  60.   global NowBPage, BPageMax
  61.   puppetSound("Kick.1")
  62.   go("1")
  63.   set NowBPage to 1
  64. end
  65.  
  66. on PageDN
  67.   global NowBPage, BPageMax
  68.   if NowBPage = 1 then
  69.     exit
  70.   else
  71.     set NowBPage to NowBPage - 1
  72.   end if
  73.   puppetSound("BookPage.2")
  74.   go(string(NowBPage))
  75. end
  76.